﻿Public Class clsIcTagLog

    Public Function PutDbLog(ByVal log As frmStartCompleteBase.Log)
        Dim szSql As String = String.Empty
        szSql &= "INSERT INTO TRA.L_ICTAG_OPE_LOG( "
        szSql &= "  EQUIP_ID, KOUTEI_CD, LOT_NO, "
        szSql &= "  OPT_TIME, OPT_USER, CONTROL, "
        szSql &= "  MESSAGE "
        szSql &= ") "
        szSql &= "VALUES ( "
        szSql &= " ?, ?, ?, now() , ?, ? ,? "
        szSql &= ")"

        With log
            Return DBacs.ExecuteUpdateSql(szSql, -1, _
                                                  .szEquipID, .szProcCD, .szLotNo, _
                                                  .szOperator, .szControl, .szMsg)
        End With

    End Function
End Class
